home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / CIRCLES.DEF < prev    next >
Text File  |  1989-01-18  |  382b  |  21 lines
  1.                                         (* Chapter 13 - Program 3 *)
  2. DEFINITION MODULE Circles;
  3.  
  4. EXPORT QUALIFIED AreaOfCircle, PerimeterOfCircle;
  5.  
  6. PROCEDURE AreaOfCircle(Radius : REAL; VAR Area : REAL);
  7.  
  8. PROCEDURE PerimeterOfCircle(Radius : REAL; VAR Perim : REAL);
  9.  
  10. END Circles.
  11.  
  12.  
  13.  
  14.  
  15. (* Result of execution
  16.  
  17. (A definition module cannot be executed alone.)
  18.  
  19. *)
  20.  
  21.